DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DODDDDDD BBBBBB8B GGGGGGGG DDDDDDDD PPPPPPPP cccccccc 

DDDDDDDD BBBBBBBB GGGGGGGG DDDDDDDD PPPPPPPP ccecccccc 

DD DD 88 BB GG DD DD PP PP Ct 

DD DD 88 BB GG DD DD PP PP CC 

DD DD 8B BB GG DD DD PP PP CC 

dD DD 8B BB GG DD DD PP cc 

DD DD 88888888 GG DD DD PPPPPPPP cc 

DD DD 88888888 GG dD. DD PPPPPPPP cc 

DD DD 6B BB GG GGGGGG DD DD PP cc 

DD DD 88 BB GG GGGGGG DD DD PP cc 

DD DD 68 BB GG GG DD DD PP cc eos 
DD DD 6B BB DD DD PP cc eee 
DDDDDDDD BBBBBBBB GGGGGG DDDDDDDD PP cccccccc eee 
DDDDDDDD BBBBBBEB GGGGGG DDDDDDDD PP ceccccc’ eoee 
LL IIIII] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL HII] SSSSSSSS 

LLLLLLLLLL IIIII SSSSSSSS 
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MODULE DBGDPC ( IDENT = ‘v04-000') = 

BEGIN 

' 
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ie COPYRIGHT («) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS  . IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WI Ll C AN H_THE 
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is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE  * 
® 
® 
® 
® 
® 
® 
ae 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
t® CORPORATION. 


it DIGITAL ASSUMES NO RESPONS 
iw SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


VaR RARER ARARAA ARETE AAA AAA AEAAAAAAAAAAAAAKEKEKEEEE 
i 


SSSssssssososooooosoeeooeooeees 
AUENN — O OONAUS WN $$ O OONAOULS WN OO 


WAN AMAA PONPIPINYNS PINPONYDD 2 2 OO Ow OO 


EWN OOO NOUR WN OO NAUE WN SO ORDO EWN OOD NOU EWN OODNOUL WR 


. 
. 
io 
* 
. 
° 
. 
. 
. 
* 
. 
oe 
~ 
° 
. 
. 
. 
° 
> 
° 
. 
° 
° 
. 
° 
. 
° 
* 
° 
oe 
o 
° 
o 
a 
o 
7 
. 
° 
2 
o 
. 
a 
° 
o 
oO 
- 
7 
° 
o 
° 
. 
° 
2 
* 
. 
o 
° 
- 
o 
a 
’ 
o 
° 
* 
o 
- 
. 
. 
° 
. 
o 
7 
oe 
* 
e 
a 
. 
o 
e 
. 
° 
. 
e 
. 
. 
- 
° 
. 
e 
. 
° 
. 
° 
« 
o 
7 
oe 
. 
. 
” 
e 
7 
° 
. 
eo 
. 
* 


PVT BS BB BBE BEB FAWN WAI AAANNIAIR PO PONPINONINONNUDY 2 2 OO Os 


'e¢ 
} FACILITY: DEBUG (DBG) 
i ABSTRACT 
} Analyzes PC correlation tables for DEBUG. 
ENVIRONMENT: VAX/VMS, user mode, interrupts disabled. 
, ; AUTHOR: Carol Peters, CREATION DATE: 16 September 1977 
0039 i Version 3.01 
0040 ! 
0041 ' MODIFIED BY: 
B08¢ : (PS = "Ping Sager, RT = Rich Title, JF = John Francis) 
Gods i 3.01 15-Sep-81 PS Correct LINE_END PC address calculation in 
45 ! PC_TO_LINE_ L6 
pose ' 3.02 23-Apr-82 RT Fixed a bug in DBGSPC_ 10. LINE_LOOKUP: the routine 
004 : was assuming that chasi ng upscope gotaters will 
Bpe8 ! always get you to a routine RST ent ry. 
' 4.0 13-Dec-82 PS Switched some old symbolization routines to 
0050 : use new code. 
0051 ! 11-Mar-83 JF Changed return values from DBGS$PC_TO_LINE_LOOKUP 
3338 ! $9 that SUCCESS an ng FAILURE are shown properly 
005 : {e~sor-83 RT Fixed a bug in P 
oe 24-Dec RT Added comments oa did some general cleanup 
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19-300" 138% 00:42:48 VAX-11 Bliss-32 V4.0-742 Page 2 
14-Sep-1984 7:16:51 DISKSVMSMASTER: (DEBUG. SRCIDBGDPC .B32; 1 (2) 


H 3 838 ! } TABLE OF CONTENTS: 

; 5 038 1 FORWARD ROUTINE 

; 60 59 1 dbg$line_to_pc_lookup, ! Given Line number associated it to a PC 

; 66 Bpey 1 dbg$pc_to_line, ! Matches a PC to a Line number 

H 6¢ 1 3 dbg$pc_to_line_lookup, ! Given PC Looks up associated Line number 

3; ¢ B206 1 proc_pc_cmd, ! Processes a string of PC correlation commands 

; 64 063 1 find_eol, ! Find end of Line 

.- oF ae bore : give_line_info: NOVALUE;! Give more info about Line number 

; ef ing i ! INCLUDE FILES 

; @& $066 1! 

; 0069 1 REQUIRE ies beeeeetaees 

; a! 8 8 : LIBRARY ‘LIB$:DBGGEN.L32'; 

; ig 0205 1 

>; 74 0 1 ! MACROS: 

> 0207 1! 

; 0208 1 MACRO 

ae 0209 1 current_byte = 0, 0, 8, 1%, ! current top of record 

; 0210 1 next_uns_byte = 1, 0, 8, 0% ! byte argument to command 

o- re 0211 1 next-uns-word = 1, 0, 16, Of, ! word argument to command 

>; 80 0 \¢ 1 next_uns_long = 1, 0, 32, 0%, ! Longword argument to command 

; 8 0213 1 add_one_Byte = 1, 0, 8, 0%, ! increment for top of record 

3 HE 0214 1 add_two_bytes = ¢- 0, 8, 0%, ! ditto 

; §& 0215 1 add_three_ bytes = 3, 0, 8, 0%, ! ditto 

; «84 b¢16 1 add_five_Bytes = 5, 0, 8, 0%; ! ditto 

 g O518 | 

; 87 0219 1 ! EQUATED SYMBOLS: 

; 88 0220 1! 

; 0221 1 LITERAL 

; 0222 1 Line_open = 1, 

3; Wi 0 $ 1 Line_closed = 2; 

3 3 0224 1 

3 0225 1 

5; 0226 1 ! OWN STORAGE: 

; 0227 1! 

; & 0228 1 OWN 

3 Sy o563 1 dst_entry : REF dst$record, 

; 0230 1 dpc_entry : REF BLOCK {, BYTE], 

; 99 231 1 start_pc 

; 100 $ ¢ 1 current_Line, 

3; «101 1 current_stmt, 

: 106 0234 1 current_incr, 

s; 0 2 1 current_pc, 

> 104 0 $ 1 current_stmt_mode, 

3; 105 37 (1 current_mark, 

: 106 3 1 prev_line, 

3 44 8 9 1 prev_stat, 

: 108 40 1 prev_incr, 

: 109 41 1 prev_pc, 

3; 110 4 1 prev_stmt_mode, 

s 111 43 1 rev_mark, 

: Ng 44 1 Rum’ Pc. Teis, ! The number of PC-Correlation DST 

: : records for the current modu 
11 45 1 : ds for th t module 


: 


current_table 
report_next_Line, 
report_next_stmt, 
report_prev_Line, 
report_prev_stmt, 
pctbl_Ctount; 


! EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 


Sos torset. fao_out: NOVALUE, ! Forward FAO string 
dbg$pc_to_Symid; ! Search Moudle SAT to locate RST 
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ROUTINE dbg$pc_to_line (match_pc_ptr, modpctbl, pgtet bese. 
Line no_str, stmt_no_ptr, line_pc) = 


: 


'oe 


i FUNCTIONAL DESCRIPTION: 


This routine matches an address ty a Line number. 

The caller, DBGSPC_TO_LINE_LOOKUP, does the work of finding 
the PC/LINE table forthe module containing the address. 

A pointer to this table is passed to this routine. 


wn 


“ 


Each PC correlation record that exists for the module 
is sequent tet ly analyzed until the desired address 
een. 


See the comments in DBGSPC_TO_LINE_LOOKUP for more details 
about how this routine is Used. 


FORMAL PARAMETERS: 


match pe-ptr - The address to be matched. 

modpc tbl - The address of the table of pointers to 
PC/LINE tables in this module. The first 
longword of the table is a count of PC/LINE 
tables, and the remaining longwords are 
ointers to the DST records containing the tables. 

pctbl_base - The address which is the base address for 
the PC/LINE tables 

Line_no_ptr - An output parameter for the Line number. 

stmt_no_ptr - An output parameter for the statement number. 

Line_pc - An output parameter for the start pc of the 
selected Line/stmt. 
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ROUTINE VALUE: 


This routine returns one of three values: 0, 1, or 2. 
Note that the caller, DBGSPC_TO_LINE LOOKUP, may change 
return status ‘1"’ to return Status ' we did not get 
an exact match. See that routine for further details 

on how the return status is used. 
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Q - If no match can be made because pc/line tables are 
not available for the given address. This may occur 
because the module containing the address was not 
set or was compiled /NODEBUG, or because the address 
is in system space or in an ATL shareable image. 

- If a Line number/stmt number was found. 

If there are pc/line tables available for the 

module containing the given address, but no match 

was found. This occurs if the address is not within 

any Line in the module. The use of the “‘TERM’’ record 
in PC/LINE tables terminates an address range for 

a line without starting a new line, and this can 

give rise to addresses without Line numbers. 
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” BEGIN 
MODPCTBL: REF VECTORC.LONG); 
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: 


} If we do not have a PC/LINE table, just return 0. 
if .MODPCTBL EQL 0 THEN RETURN 0; 


' Set the OWN variables that we use for reading the PC/LINE tables. 
! This includes a count of the number of PC/LINE DST records in this 
' module we have looked at so far (initialized to 1 here), a count 
! of the total number of PC/LINE DST records in the module, a pointer 
! to our position in the table of PC/LINE DST records, 
! and a pointer to the first such DST record. 
If there are zero PC/LINE tables in this module, return 0 here. 
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CURRENT TABLE = MODPCTBLL1); 
DST_ENTRY = .MODPCT 


T=1; | 
NUM _PC_TBLS = .MODPCTBL(O); | 

, eLtid: | 
IF TNUM_PC_TBLS EQL 0 THEN RETURN 0; | 


! Initialize the state variables (OWN variables in this module) 
that are used by PROC_PC_CMD. 


current_line = 0; 
current_stmt = 1; 
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current_incr = 1; 
0345 current_stmt_mode = FALSE; 
0346 current_pc = start_pc = .pctbl_base; 
0347 current_mark = Line_closed; 
0348 ; 
0349 
B20 ! Call a routine that processes all PC correlation commands 
0351 ! until a delta-PC command is seen. Then process that 
2 Bs3¢ ! delta-PC command and return to this routine. If the grecessing 

S327 : is generally successful, return 1, otherwise return 0. 
0355 dpc_entry = dst_entry Cdst$b_vflags]; 
0356 2 lala cette — 
035 BEGIN 

$25 prev_line = .current_Lline; 

59 prev_stmt = .current_stmt; 


prev_incr = .current_incr; 
prev_stmt_mode = .current_stmt_mode; 
prev.pc = .current_pc; 

prev_mark = .current_mark; 
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! If we PROC_PC_CMD fails we have come to the end 

! of the PC/CINE table for this module, without finding 
i a match. In this case, return 2, indicating that we 

i are in a module with PC/LINE tables, but we could not 
: match the given PC. 
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if NOT proc_pc_cmd ( ) 
THEN 
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: 


RETURN 2; 


Report a match to a Line if: 
= the PC is within the range given by 

the previous PC and the qurrens PC, and 
= the line is marked as being OPEN. 


F (.prev_pc LEQA .match_pc_ptr) AND ‘ 
(.match_pc_ptr LSSA .curfent_pc) AND 
nT chin ania EQL Line_open) 


BEGIN 
-stmt_no_ptr = (IF .prev_stmt EQL 1 THEN 0 
ELSE .prev_stmt); ! Huh? 
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-tine_no_ptr = .prev_line; 
-line pc = .prev_pc; 
RETURN 1; bts 

END; 
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: Found nothing this round; continue trying. 
END; ! End of REPEAT. 


WAI 
COCO DOD OOOOO oo 
FERLSSSSESSILSSLSSSSFS 


=NININININNMNNANAA BE & SB ENE AINA 


' We have not found a match - return 2, indicating that we 
' are in a module with PC/LINE tables, but we could not 
} match the given PC. 


RETURN 2; 
END; 
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TITLE DBGDPC 

SIDENT \V04-000\ 

-PSECT DBGSOUN,NOEXE, PIC,2 
00000 DSTLENTRY: 
00004 ee) 
00008 STARTPC: 
0000¢ CURRENT _LINE : 
00010 CURRENT_STAT : 
00014 CURRENT_INCR: 
00018 CURRENT CS 
0001¢ CURRENT_STAT MOD 
00020 CURRENT_MARK: 

-BLKB 
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1b-Se =3007 138% 99:42:98 VAX-11 Bliss-32 V4.0- 


14-Sep-19 DI SKSVMSMASTER: CDEBUG. sac IDBGoPC. 832: - (35 
00024 PREV_LINE: 
00028 PREV_STMT 
0002C PREV_INCR: 


698 PREV_PC: -BLKB 
0 PREV_STMT_MODE: 


00038 PREV_MARK: 
0003¢ NUM_PC_TBLS" 
00040 CURRENT TABLE: 
00044 REPORT_NEXT LINE: 
00048 REPORT_NEXT STMT: 
0004C REPORT “phe LINE: 
00050 REPORT “pity STMT: 
00054 PCTBL count. 
-BLKB 


Pn Se Se Se a ee ee 2 2 2 ee Se 


.EXTRN DBGSFORMAT_FAO_OUT 
-EXTRN DBGSPC_TO_SYMIDB 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0004 00000 DBGS$PC_TO LINE: 
QORD 


2 Save R2 > 0260 
52 00000000" ¢: 9 90002 HOVAB «NUM PC-TBLS, R2 ; 
50 08 Ag 06 9000 009 MOVL MODPC DPCTBL, RO : 0321 
A 01 00 0000F MOVL #1, PCTBL_COUNT : 0332 
6 60 00 90015 MOVL (RO), NUM"PC_TBLS > 033 
A2 04 AO 9E 00016 MOVAB 4(ROS, CURRENT TABLE > 0334 
A2 04 AO D 90018 MOVL 4(RO). DST_ENTRY > 0335 
$¢ D5 00020 TSTL NUM_PC_TBL : 0336 
73 13 00022 1$: BEQL © 6$ : 
DO A2 DS 00024 CLRL CURRENT_LI : 0342 
A gt DO 00027 MOVL #1, CURRENT_STMT > 034 
A 1 D0 00028 MOVL #1. CURRENTINCR > 0344 
£0 A2 D4 0002F CLRL § CURRENT_STMT_MOD > 0345 
50 C AC DO 00032 MOVL §PCTBL_BASE, RO + 0346 
A 50 00 000 MOVL RO, START PC F 
A 50 (D0 900 A MOVL R : CURRERT _pC : 
A 02 10 000 MOVL * CURRENT “MARK > 0347 
A 08 cl 004 ADDL3 DST_ENTRY, DPC_ENTRY : 0355 
A 0 A2 7D 00048 2s: MOVG He: OST ENTRY. PREV~LINE : 0358 
A E A2 7D 00040 MOVa CURRENT “STMT _MODE , PREV_STHT_MODE : 0361 
A A2 7D O5¢ MOVQ § CURRENT“INCR> PREV_INCR : 0 60 
F Q FB CALLS #0, PROC_PC_¢MD : 0372 
4 E9 0005¢ BLBC =._«RO,.-« S$ : 
AC F4 A2 D1 0005F CMPL PREV_PC, MATCH_PC_PTR : 0382 
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; Routine Size: 


154 bytes, 


DC =—A2 
01 
01 
50 
14 «BC 
10 «BC 
18 §=6BC 
50 
50 


Routine Base: 


E2 1A 00 
04 AC D1 
D if 6 
FC «6A OD Bg 
D \¢ 3 
EC Ad D ? 
ge 12 0007 
0 04 Bao 
04 11 0007 
EC A2 00 0007 
50 DO 0008 
E8 A2 00 8008 
F4 Ae 00 0008 
01 00 0008 
04 0009 
02 00 0009 
04 00096 
50 04 sis 94d 
04 00099 


DBGSCODE + 0000 


e 


6 
-$ep-1984 00:22: VAX-11 Bliss-32 V4.0-742 
~Sep- 1984 99:98:89 DISKSVMSMASTER: CDEBU 
BGTRU 2$ 
CMPL § MATCH_PC_PTR, CURRENT_PC 
BGEGU 2 
CMPL § PREV_MARK, #1 
BNEG © 2$ 
CMPL  PREV_STMT, #1 
BNEG = 3$ 
CLRL = RO 
BRB 4$ 
3$ MOVL § PREV_STMT, RO 
4$ MOVL RO, SSTMT_NO_PTR 
MOVL § PREV_LINE; aCINE_NO_PTR 
MGVL § PREV“PC, @LINE_PC 
MOVL 1, RO 
RET 
5$: MOVL #2, RO 
RET 
6$ CLRL 
RET 
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D 
DBGDPC 16-Sep-1984 00:22: VAX-11 Bliss-32 V4.0-742 Page 9 
v04-000 13-38-1382 90:98:88 DISKSVMSMAS TER: DEBUG. SRCJDBGDPC.B32: 1° (4) 
; er 106 1 GLOBAL ROUTINE DBGSLINE_TO_PC_LOOKUP (LINE_NUM, STMT_NUM, MC_PTR, ' 
3 qf 49 ? LINE_PC, LINE_END, FLAG) = 
; e279 408 1 ! FUNCTIONAL DESCRIPTION: 
; 280 0410 1! This routine finds the absolute PC address associated with 
: 4 Bet : } a Line number/statement number. 
; a 41 1! Each PC correlation record that exists for a single routine 
: 284 0414 1! is sequentially analyzed until the desired Line number 
; HF4 Bo)? : s seen. 
; 87 B41? 1! If a match cannot be made because an end of routine record or 
; 288 416 1! an invalid record is recognized, then this routine returns 
: 289 0419 1! FALSE. 
; 290 0420 1! 
3s av 0421 1 ! FORMAL PARAMETERS: 
; 04 ¢ ; ! Line_num - the Line number to find. 
; 29 0423 1! stmt_num - the statement number to find. 
; 294 bese 7% mc_ptr - moduie rstptr 
; 295 0425 1! Line_pc - where to store the computed address. 
; 296 0426 1! Line_end - a copy-back pointer for the Line-end pc value. 
3 344 of H } lag - flag set to indicate more line information is needed. 
:; 299 0439 1 ! ROUTINE VALUE: 
; 300 0430 1! The routine value is TRUE if the desired Line was successfully 
3; 301 0431 1! found; it is FALSE otherwise. 
3 Jo et . 
s 505 0433 1! 
3: 304 0434 1 
s 305 0435 BEGIN 
. 3 0436 
3s 307 0437 MC_PTR: REF RSTSENTRY; 
; 308 0438 2 
; 309 0439 2 LOCAL 
s 310 0440 2 MODPCTBL: REF VECTORL,LONG); 
3 sti 0441 2 
; 312 0442 2 4 : 
; 313 0443 2 ! Adjust a statement number of 1 to 0 (ZLINE 10.1 is equivalent 
5 $16 bees 2 to ZLINE 10, and the algorithm below coughs at statement numbers of 1 
: 316 0446 5 if .STMT_NUM EQL 1 THEN STMT_NUM = 0; 
3; 317 0447 2 
; 318 0448 2 
; #319 0449 ' Set up the OWN variables that we use for needing the PC/LINE tables. 
; $9 0450 ! This includes a count of the number of PC/LINE DST records in this 
5 Se 0451 ' module we have looked at so far (initialized to 1 here), a count 
3 356 0636 2 ! of the total number of PC/LINE DST records in the module, a pointer 
gs Se 045 ' to our position in the table of PC/LINE DST records, 
3; 324 0454 ! and a pointer to the first such DST record. 
; $52 3832 If there are zero PC/LINE tables in this module, return 0 here. 
gs. Ser 0457 PCTBL_COUNT = 1; 
; 328 0458 MODPCTBL = .MC_PTRCRSTS$L_MODPCTBLI; 
; 39 0459 IF .MODPCTBL EOL 0 THEN RETURN FALSE; 
3 0 460 TBLS = .MODPCTBL(O); 
: 331 0461 CURRENT TABLE = MODPCTBL 14; 
s $3e 0462 DST_ENTRY = .MODPCTBL(1J; 


16 
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1 =3007 1382 99:98:84 DISKSVMSMASTER: DEBUG. SRCIDBGDPC.B32;1" cas 
IF .NUM_PC_TBLS EQL 0 THEN RETURN 0; 


: 464 

$ 465 

; 4 ! Initialize state variables. These are OWN jabl h 

: 48) are used by PROC_PC_CMD. enna Hs: 

; 9 469 current_line = 0; 

; 340 470 current _stmt = 1; 

; 341 471 current_incr = 1; 

$ ¢ 047 current_stmt_mode = FALSE; 

s 34 47 current_pc = start_pc = .mc_ptr(rst$l_pctbl_base]; 

: rf. ae current_mark = Line_closed; 

; <3 be) Pt h h the PC C lati 

; ! Loop through the orrelation Tables for this modile until th 
3 8 0478 ! desired Line number is found or the table ends. To do this, we call 
; 349 0479 ! PROC_PC_CMD to process all PC Correlation commands until a delta-PC 
3 390 0480 ! command is found. It then returns a PC and a Line number and we 
ee) 0481 ! check whether that is the Line number we are looking for. If not, 
: 26 bees ! we loop for the next Line until the desired Line is found or no PC 
: rt bez } Correlation commands remain. 

; 355 0485 dpc_entry = dst_entry Cdst$b_vflags]; 

; 356 0486 REPORT. PREV_LINE = 4 (tees 

; 57 0487 REPORT_PREV_STMT = 1; 

$ foe 0488 REPORT_NEXT_LINE = .LINE_NUM; 

: 59 0489 REPORT _NEXT_ STMT = .STMT_NUM; 

; 360 0490 WHILE TRUE 

: 3e¢ ed BEGIN 

; 5 049 

> 364 0494 ' Remember the previous values of all the state variables 

: $0? 4 before getting the current values this time around. 

; 369 497 PREV_LINE = .CURRENT_LINE; 

; 368 498 PREV-STMT = .CURRENT_STMT; 

3; 369 0499 PREV_INCR = .CURRENT_INCR; 

; 370 0500 PREV-STMT_MODE = .CURRENT_STMT_MODE; 

3 71 0501 PREV_PC = .CURRENT PC; 

3 y 0308 PREV-MARK = .CURRERT_MARK; 

: 374 0504 

s 375 0505 ! Call PROC_PC_CMD to get the mext PC - Line number pair. 

: z 8206 When there are no more Lines, exit this loop. 

3 28 0308 IF NOT PROC_PC_CMD() THEN EXITLOOP; 

: 380 0510 

; 3 bal) } Set report next Line and stmt for the first time. 

; Hf 215 iF (.REPORT_NEXT_LINE EQL .LINE_NUM) AND 

: se 213 3 (.REPORT_NEXT_STMT EQL .STMT_NUM) 

; 86 216 BEGIN 

: 8 51 4 IF (.CURRENT_LINE GTR .LINE_NUM) 0 

; 388 318 3 ((. CURRENT_LINE EQL .LINE_NUM) AND 

; 389 51 (.CURRENT-STMT GTR .STMT_NUM)) 
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H 0 4 THEN 

H 1 BEGIN 

; § REPORT_NEXT_LINE = .CURRENT_LINE; 
is 5 REPORT_NEXT STMT = .CURRENT_STMT; 

3 524 4 END; 

; : 2 4 END 

H 2 ; 

; 5 § ! At this point we have Prev. Line, current Line, and given Line info. 

5 530 i So we define the reporting Line information centered around given Line. 

3 2 1 (we choose the closest two ends value). 

3 05 § ! Define report prev. Line. 

; 404 0534 : 

; 0535 rf_.REPORT_PREV_LINE LSS .LINE_NUM 

: 406 05 $ THEN 

; 0537 4 BEGIN 

; 40 0538 4 IF .PREV_LINE LSS .LINE_NUM 

3 0539 4 THEN 

3 410 0540 4 REPORT_PREV_LINE = MAX(.REPORT_PREV_LINE, .PREV_LINE) 

; 411 0541 4 

; $i¢ B2e§ 5 

: 41 0543 6 IF ((.PREV_LINE EQL .LINE_NUM) AND 

3; 414 0544 6 (.PREV-STMT LSS .STMT_NUM)) 

; 415 0545 5 

; 416 0546 6 BEGIN 

3 417 0547 6 REPORT_PREV_LINE = .PREV_LINE; 

; 418 0548 6 REPORT_PREV_STMT = .PREV-STMT;: 

> 419 0549 5 END; 

; 420 0550 5 

: 421 0551 4 END; 

; re 0236 4 

; 42 0553 4 END 

3 424 0554 4 

; 425 0555 3 

> 426 0556 4 BEGIN 

> 427 0557 5 IF ((.REPORT_PREV_LINE EQL .LINE_NUM) AND 

; 428 0558 5 (.REPORT-PREV-STMT LSS .STMT—NUM)) 

: 429 0559 4 

; 430 0560 5 

3 431 0561 5 IF (.PREV_LINE EQL .LINE_NUM) AND 

; 432 036¢ 6 (.PREVSTAT LSS .STMT-NUM) 

3 4 O86é : REPORT_PREV_STMT = MAX(.PREV_STMT, .REPORT_PREV_STMT); 

; 435 0565 5 

; 436 9366 & END; 

: 437 0567 4 

; 438 568 ENO; 

3; 439 4 14 

; 440 570 : 

3 6441 571 ! Define report next Line. 

3: (44 Bare é 

3 66 3 IF _.REPORT_NEXT_LINE GTR .LINE_NUM 

3 6446 74 THEN 

3; 445 575 4 BEGIN 

3 446 0576 4 IF .CURRENT_LINE GTR .LINE_NUM 
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3; 447 77 4 THEN 

; 44 4 4 REPORT _NEXT_LINE = MIN(.REPORT_NEXT_LINE, .CURRENT_LINE) 
; 266 7 : ELSE 

; 451 6 IF ((, « CURRENT ob ws EQL .LIN 4 NUM) AND 

3 t2§ § g RRENT_STMT GTR .STMT_NUM)) 

3s § 

3 634 584 6 BEGIN 

; 455 585 6 REPORT_NEXT_LINE = .CURRENT_LI wee 

; $28 5 REPORT_NEXT_STMT = .CURRENT_STMT; 

; 45 5 END; 

3 $28 +4 

; 45 4 4 END; 

; 460 0590 4 

; 461 0591 4 END 

; 46 8236 4 

; 46 0593 3 

; 464 0594 4 BEGIN 

; 465 0595 5 IF ((. kt -NEXT_LINE EQL .LIN EAN UM) AND 

> 466 0596 5 (REPO T-NEXT_STMT GTR .STMT_NUM)) 

; 467 0597 4 

; 468 0598 : 

; 469 0599 IF ¢. CURRENT_LINE EQL .LINE_NUM) AND 

; 470 0600 g (. CURRENT — “STMT GTR «STMT_N UM) 

; 471 0601 N 

; rte Be8 : REPORT_PREV_STMT = MIN(.CURRENT_STMT, .REPORT_NEXT_STMT); 
3 474 06 4 END; 

3 675 0605 4 

: 476 060: END; 

; 477 060 

; 478 0608 

3; 479 0609 ! Note that: above code did not take care of the equality condition. 
; re + pei? it should be set up here and tested in give_line_info. 

; 48 pels ! If the current Line number is equivalent to the one we were 
; 48 061 ' passed (and this includes the statement number), then we 

> 484 0614 ' return the gt pte PC to LINE_PC and we return TRUE. 
3; «6485 0615 ! If we are at the ri ine but there is no such statement 
g 236 Bets ; aumber, we clear LINE_PC and return FALSE. 

; 489 0619 THEN 

; 490 8669 4 BEGIN 

; 491 1 4 IF MAX (.CURRENT_STMT, 1) EQL MAX(.STMT_NUM, 1) 

; 49 06 § 4 THEN 

; 49 06 2 BEGIN 

3 494 0624 eLINE_PC = .CURRENT 

> 495 0625 5 if NOT FIND_EOL(. LINE “inp 

3 rt be $ § THEN 

3; 49 6 6 BEGIN 

3; «4498 0628 6 IF FLAG THEN GIVE_LINE_INFO(.LINE_NUM, .STMT_NUM); 
; 499 9 | RETURN FALSE; 

: 500 650 END; 

: 501 631 

; 06 § RETURN TRUE; 

; 3 06 5 END 
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: 


BEGIN 
en OTR MAX(.STMT_NUM,1) 


GIN 
»-LINE_PC = 0; 

F_.FCAG THEN GIVE_LINE_INFO(.LINE_NUM, .STMT_NUM); 
ETURN FALSE; 


o 
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END; 
END; 
END; ! End of WHILE loop over PC Corr Tbl 


OOooCoooo 
FFF 


ao 


! The desired Line number was not found. Clear LINE_PC and return FALSE 
as the routine value. 


iF gELAG THEN GIVE_LINE_INFO(.LINE_NUM, .STMT_NUM); 
RETURN FALSE: 
END; 


Sete Ge Se Se ee Fe Se ee Se Ge Se Ge Se Ge Se Ge Ge Se Geese Se Ge Seas 
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POPIPOPENIPINPYINNY 2 2 PP OP? OO OS Oe 
oooooo 

SoRORSS 

MUIVIVIVMIVIVIVIW 


001¢ 9009 .ENTRY DBGSLINE_TO_PC_LOOKUP, Save R2,R3.R4 : 0406 
54 00000000' EF 9E 0Qv02 MOVAB CURRENT STMT, R& ; 
01 08 ag D1 00009 CMPL STMT_NUA, #1 ; 0446 
03 12 0000D BNEG F 
08 AC 04 0000F CLRL § STMT_NUM ; 
44 AG 01 DO 00012 1$: MOVL #1, PCTBL_COUNT 3 0457 
50 0c AC 00 00016 MOVL MC PTR, R : 0458 
51 2¢ «AO 09 OO1A MOVL  44TRO). MODPCTBL ; 
11 13 OOO1E BEQL 2$ : 0459 
2c AG 61 D0 00020 MOVL (MODPCTBL), NUM_PC_TBLS + 0460 
0 AG 06 Al 9€ 000 4 MOVAB 4(MODPCTBLS, CURRENT TABLE + 0461 
FO. AG 04 Al 00 0029 MOVL § 4(MODPCTBL). DST_ENTRY : 046 
2C A& 05 0002E TSTL _PC_TBLS : 046 
93 12 09 1 2$: BNEQ : 
0170 31 00033 BRW 6$ ; 
FC AG D4 00036 3S: CLRL § CURRENT_LINE > 0469 
64 01 D 0039 MOVL #1, CURRENT_STMT : 0470 
04 Ad 01 DO 000 MOVL #1, CURRENT“INCR > 0471 
0c Ad D& 0004 CLRL OO RRENT_STAT MODE : 047 
50 1¢ AO DO 0004 MOVL  28(R0),~RO : 047 
Ad 50 00 0004 MOVL RO, START PC : 
RO, CURRERT_ : 
VL_ #2, CURRENT “MARK + 0474 
#2, DST_ENTRY, DPC_ENTRY 3 9689 
REPORT PREV LINE : 0% 
#1, REPORT _PREV_STMT : 0487 
LINE_NUM, R2 : 0488 
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RT_NEXT_LINE : 
34 AG 52 7D 00064 MOV = R2,_ REPO tose 
vay: fee i itt a Bova CURRENT. “ih. met bine _STMT_MODE + 0500 
e vi eM OR $09 mova ARENT INCR; PREV_INCR™ ; 0499 
by te i Be 16 CALLS t_Pc_¢mp : 0508 
oe 65 98 is b07C BLBS 80 - oe° © ee 
52 34 nt H Mite 5$ ORL REPORT_NEXT_LINE, R2 : 0513 
53 38 Hi bf $0088 ty REPORT_NEXT_STMT, R3 0514 
ig 8 SoBe BOVE CURRENT_LINE, RO ; 0517 
23 ie $6 D1 0099 CMPL RO. R2 ; 
a ong 
53 oe i¢ $0099 cMPL URRENT_STMT, R3 ; 0519 
8 15 0009C Pie Pons 
a 2 BE Oe Earn Rt TebOME ents 884 
” 85 3C 11 DO 000A6 7$ BOVE REPOR} PREV_ LINE, RO” : 0 
52 50 D1 OOOAA ; 
cn OD OO0Ar SeuL PREV LINE, R1 ; 0538 
51 14 A& DO OOOAF REV L ; 
52 51 D1 00083 CMPL R1, 
0 18 00086 BGEG a Bass 
. ot 2 
3C Fe 24 My 900e0 8$: MOVE nO, REPORT _PREV_LINE 3 
39 11 0004 BRB - 
1a BF BR PRT, soar, Be 
53 ; 
31 18 O00CC BGEG 128 - pen 
5M AL BS 888s RBM Ele Mera et ey. 8 
Soe 2.6 Beer org a. 
53 40 <2 if $0008 _ ONeL REPORT _PREV_STMT, R3 ; 055 
52 14 Ak A tity cn PREV_LINE, R2 0561 
53 18 ig if S00E? CMPL  PREV_STMT, R3 ; 0562 
a a ae 08 
40 ne " 85 BY Gar} CMPL =e RO REPORT PREV. STMT ; 
Re 8 iti aoee REPORT PREV_STMT, RO ; 
40 2 - $6 DO OOOFB 11$: = MOVL 0, REPORT PREV VESTA -_ 
50 34 AG DO OOOFF 12$:  MOVL nefon ony NEXT LLIN ; 
52 50 01 3193 ort . ia 
51 FC 3 $108 MOVL CURRENT _ LINE, R1 : 0 
A gna gee gS pe: 
g CMPL =e RO, RI : 
” 0 ts Sta BLEG mos ; 
50 51 00 00116 MOVL R1, RO 


3 Routine Size: 


425 bytes, 


34 


38 


38 


40 


0000v 


0000Vv 


0000Vv 


Routine Base: 


07 
CF 


38 
FC 


QDMA A BP S$ DMN VNVIAWW" 
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38 
FC 
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>Prrovono 


04 0 
DBGSCODE + OO9A 


15$: 


-1984 
P= 1984 


13:98:84 


RO, REPORT_NEXT_LINE 
17§ 


17$ 
CURRENT_STMT, R3 
REPORT_NEXT_LIN 


R1 E 
CURRENT STAT, REPORT_NEXT_STMT 


178 

REPORT_NEXT_STMT, R3 
RRENT_LINE, R2 

CURRENT_STMT, R3 


CURRENT STMT, RO 
RO, REPORT_NEXT_STMT 


REPORT _NEXT_ STMT, RO 


RO, REPORT _PREV_STMT 
CURRENT _LIRE, R2 


4$ 
CURRENT _STMT, R1 


<R2,R3> 
#2, GIVE_LINE_INFO 


FLAG, 25$ 
#AM<R2,R3> 

#2, GIVE_LINE_INFO 
at ine PC 
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: 59 1 GLOBAL ROUTINE dbg$pc_to_line_lookup (match_pc_ptr,line_no_ptr, stmt_no_ptr, 
; ; 1 es ! m : : Line. Start, Line-end, nod, Syatd = 
; : 66¢ ; FUNCTIONAL DESCRIPTION: | 

; 2 5 664 1} This routine matches an address to a Line number. 

: 5 o2 ! } We need to do this in several situations: 

: 2 8 O66? 1! 1. When stepping by Line, to determine when to stop stepping. (DBGEVENT) 
: 9 see | 1! - When symbolizing a code address to put out ‘"ZLINE XxX'’ (DBGSYMBLZ) 
; 540 be8 1! - Putting out the SHOW CALLS display (DBGTBK) 

; 541 670 1! 4. Finding fhe start of the Line for "EX/INS *'* (DBGLEVEL3) 

: Pk bee, : } 5. Source display, as in EX/SOURCE .PC (DBGSOURCE) 

: 544 0678 1 The Line number (and statement number, for BASIC) is returned. 

> 545 74 1! Also returned are: the start and end address of the Line, 

> 5346 0675 1! and a pointer to the module RST entry for the module containing 

: roe Bef : the given address. 

; 549 0678 1! Each PC correlation record that exists for the module 

: 229 pore : } is sequentially analyzed until the desired address is seen. 

; 226 0681 1} This routine is actually just a cover routine for DBGSPC_TO_LINE, 

: 227 eet) : } where the real work is done. 

; 338 0684 ; FORMAL PARAMETERS: 

: 557 0686 1 ! match_pc_ptr = the address to be matched. 

3; te 0687 1! Line_no_ptr - an output parameter for the Line number. 

3; 33 0688 1! stmt_no_ptr - an output parameter for the statement number. 

; 560 0689 1! Line_start - an output parameter for the start pc of the 

; 561 0690 1! : selected Line/stmt. 

3; 3 0691 1! Line_end - an output parameter for the end pc of the 

; 3 0692 1! selected Line/stmt. 

: re peer : mod_symid - An in/out parameter, as follows: 

; 566 0695 1: If the caller has a SYMID for a block, routine, 

; 567 0696 1! or module which contains the given address, then 

; 568 0697 1! this symid can be passed in here. This saves 

; 569 0698 1! a search of the Static Address Table. 

; 570 0699 1! If the caller : 

, 3 0700 1! does not have a symid, then zero is passed in. 

3 276 0701 1! Note that these are passed in with an extra level 
ie eT Singer getion: 88+ 

3 32 Me ' : STATUS = HBGSPC_TO_LINE_LOOKUP(.ADDRESS,...,SYMID); 
: 379 0706 1! In either case, this parameter is filled in with 

: 278 4 : : the address of the module containing MATCH_PC_PTR. 
; 380 0709 ' ROUTINE VALUE: 

: 286 711 1: This routine can return four values: 0, 1, 2, or 3. 

: : ae 1! Most of the callers just test the result for ; 

; 71 1! TRUE (meaning a match was found), or FALSE — a match 

; 585 0714 1! was not con ). So for these callers, 0 and 2 are the same, 

; 586 0715 1! and 1 and 3 are the same. 
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s S87 716 1! 
; 588 a$ 1! DBGEVENT needs more detailed information than just whether 
; 589 rs 1! a match was found, in order to decide whether to continue 
; 590 71 1! stepping. It needs to know why a match was not found, or 
; 591 720 1! if one was found, whether or not it was an exact match. 
: % g 1 ; So for the DBGEVENT call, we return the following: 
; 594 7 : 1! 0 - If no match can be made because pc/line tables are 
; 595 07246 1! not available for the given address. This may occur 
; 0725 1! because the module containing the address was not 
; 59 7 § 1! set or was compiled /NODEBUG, or because the address 
3 4 7 1! is in gyetes space or in an ATL shareable image. 
; 599 726 1! 1 - If a Line number/stmt number was found, and we 
; 600 729 «1! have an exact match to that Line number. 
; 601 0730 1! 2 - If there are pc/line tables available for the 
; 60 0731 1! module containing the given address, but no match 
; 60 97 ¢ 1: was found. This occurs if the address is not within 
3; 604 07 1! any Line in the module. The use of the ‘TERM’ record 
; 605 0734 1! in PC/LINE tables terminates an address range for 
; 606 0735 1! a Line without starting a new Line, and this can 
; 607 oo 38 1! ive rise to addresses without Line numbers. 
; 608 0737 1! 3 - If there is a Line number associated with the address, but 
3 4 o735 : it is not an exact match. 
; 611 0740 2 BEGIN 
3 ol¢ 0741 § LOCAL 
s 61 Bree rstptr: REF rst$entry, : Module RST pointer 
3 et3 oF status; ' Return Status 
3; 616 0745 x 
; 617 0746 ! If we do not know an RST entry for a program unit 
; 618 0747 ' containing the given address, we'll look 
; 619 0748 ! it up ee the Program-level SAT. 
; 620 0749 § ! If we already have the information 
3 és) 3730 § } (passed in from the caller) then just set it up. 
; 6s? 8736 iF 5 mod_syaid EQL 0 
; 625 0754 EGIN , 
3 626 Boe Status = dbg$pc_to_symid(.match_pc_ptr, rstptr); 
; 628 O789 : ah 
3; 629 0758 ! If PC_TO_SYMID failed, then we do not have a module containing 
: 6 0 0738 ; the addréss in our module chain. Thus, return zero. 
; 63 0761 IF NOT .status THEN RETURN 0; 
3 63 $706 END 
$ 5 oer 
5 rstptr = ..mod_symid; 
? 109 d id 
3 ra O76? : , 
; 639 0768 ! Go upscope to the module level, just in case a caller passed in 
3 “oy 0776 a routine or block RST entry. 
3 o64 771 WHILE (.rstptr€rst$b_kind] NEQ rst$k_module) DO 
3; 64 0772 rstptr = .rstptrirst$l_upscopeptr); 


=1984 VAX-11 Bliss=32 v4. Pa 
green teas POiTe ey Ne dnthidtencchcine shczecoec. p32-17" «55 


sentes = dbgSpc_to_line(.match_ PSs ptr, etptpsrtratst -modpctbl), 


> 644 773 

: ote ie ' Set th t dule RST 

F ! Se e return module ‘ 

ee Een 

3 -mod_symid = .rstptr; 

: 649 77 satel . 

3 020 77 

s 63) 780 ' Now call the ee dgy 4 se do the real work. Pass along the three 
: 626 781 i output parameters L NO_PTR, STMT_NO_ PTR, and LINE_START, 

; 6 7 ¢ to be filled in by bpespe _10 CINE. ~ 

; 654 78 

; 636 rR $\petbl base! 

3 ofetett rst$l_pct . 

; 65 7 ne_no_ptr, cbt. "Re tr, .line_start); 
: 658 78 - - 

; 659 788 

; 660 0789 ! We get the return code from DBGSPC_TO_LINE. Here we Be 
: 661 0790 ' i the PC being an, Rect match. If not, we change Pee 
s $66 791 ' return status to a to indicate this. We also fitte int 
>; 66 79 ' LINE_END output parameter, using the OWN variable CURRENT te 
3 r¢) 8787 thet” gets set in the processing of PC/LINE records. 
; 666 0795 if .status EQL 1 
; 667 07 THEN 
; 668 079 BEGIN 
3; 669 0798 Shes end = .current_pe - 1; 
: 670 0799 -Tine_ start NEQA~.match _pc_ptr 
3; 671 0800 HEN 
: o7¢ 0801 3 status = 3; ' not exact match. 
3; 67 080 END; 
; 67 080 
3; 675 0804 ¢ 


RETURN .status; 
END 


0000 00000 .ENTRY DBGSPC_TO_LINE_LOOKUP, Save nothing : 0659 
SE 04 ce 90002 SUBL2 : 
18 BC D5 0000 STL ado “SYMID : 0752 
11 12 00008 NEQ : 
5E DD OOO0A PUSHL sp : 0755 
04 AC DD 0000C PUSHL MATCH P : 
000000006 00 08 FB O00F CALLS We, DBGSPC Vo. SYMID : 
06 E8 00016 BLBS STATUS, 2$7 : 0761 
48 11 yo19 BRB 4$ ; 
6 18 BC DO 0001B 1$: MOVL  amMOD SYMID, RSTPTR : 0765 
1 6E 00 O001F 2$: MOVL RSTPTR, : 0771 
01 16 Al 91 00022 CMPB (R1). a : 
06 13 90 6 BEQL $ : 
6E 10 Al D 8 MOVL  16(R1), RSTPTR : 0772 
F1 11 0002C BRB 2$ : 
51 E 06 6 E 3$: MOVL RSTPTR, R1 : 0777 
18 BC 1 p 1 MOVL RI, ond” SYMID : 
E 0c AC 7D 00035 MOVG STMT_NO PIR, -(SP) > 0786 
08 AC dD 00039 PUSHL LINE~NO~P : 


~ 
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PUSHL (R1) ; 87 5 


(R1) 
PUSHL MATC 
CALLS a rare TO_LINE 


on 
Sao 


FD73 F 


14 «BC veneer ° & ef CURRENT_PC, @LINE E-p D 


CMPL gine _START; MATCH_PC~PTR 
#3, STATUS 


7 
0795 
79 
10 $799 
0801 
50 : : CLAL RO ; $803 
; Routine Size: 102 bytes, Routine Base: DBGSCODE + 0243 


Sow uwnren -- WOOO 
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oa 
z 
m 
o 


wns 


SOOOOCOOCOOoOoCoOoOO 


DEQ EEE 
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: 


if dpc_entryCcurrent_byte) GTR (.dst_entryCdst$b_length] + 
sie ‘ Geet antteldcteh Lengtea) . . 


THEN 


BEGIN 

PCTBL_COUNT = .PCTBL_COUNT + 1; 

IF .PCTBL_COUNT GTR SNUM_PC_TBLS THEN RETURN FALSE; 
current_table = .current_table + 4; 

dst_entry = soSurrene..58 e; 

crentry = dst_entry Cdst$6_vflags); 


OWONOULS WO 


HC PAD AARAAIA 


WnN— 


! Now process each command, either PC correlation or / 
! delta-PC one at a time. Once a delta-PC command is 


; $7 } ROUTINE PROC_PC_CMD = 

; Q 8 ! Functional description: 

; § \9 ii This routine processes PC correlation commands yactt a 

: 37 698 delta-Pc command is seen. The delta-PC command is also processed. 
: 121! Then this routine returns with all the contents of the 

: 5 ; ! } parameter pointers updated appropriately. 

; 16 1 This routine moves from PC record to PC record as necessary. If 
3 1§ 1! no more records are seen, this routine returns false. If 

4 1 1! an error is seen in a PC correlation record, then this 

; 6 \s 1! routine sets the contents of Line_ptr to zero and 

: £3) 18 : returns false. 

; oo7 1 } Inputs: 

3 695 1 Implicit inputs: 

: ESP: 

: 698 6 1 § Implicit outputs: 

; 699 1! the contents of the Line pointer, the increment pointer, the 

; 700 3 7! statement pointer, the next_pc pointer, dpc_entry,. and possible 
; 4 ; dst_entry are updated to new values. 

: 70 1 1 ! Routine value: 

; Ae ¢ ! TRUE if all goes well, otherwise FALSE. 

: 706 1! Side effects: 

; AA 5 i } More of the correlation records for this routine are read. 

: 709 B37 1 

: re ty BEGIN 

; 12 B40 REPEAT 

; 71 1 BEGIN 

: hg : 

; 16 4 ! See whether the current record is exhausted. If 

: 717 5 ' so, get a new record. If none are available, 

3 18 § ! return FALSE. Otherwise, set dpc_entry to point to 

: 1 : the address of the third byte of the correlation record. 
: 1 4 

; 3 5 

3 4 4 

3 5 é 

: $ 4 

3 4 

| 
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1 
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: 


H 5 : prereseed, control returns from this routine to its 

; H caller. 

3 4 CASE “dpc entry Ccurrent_byte] FROM 1 TO dst$k_pccor_high OF 
; 76 

: 741 

: 74 ! Read the next two bytes as an unsigned word 

; 74 7 } Ae pe eg a delta-PC value. Update the next_pc 
; re if ; and update the dpc_entry address. 

; 2% 7% Cdst$k_delta pc_wi: 

; 2 75 ~“BEGIN’ ~ 

; 748 6 & IF .current_stmt_mode 

; 749 77 & THE 

; 750 A 4 current_stmt = .current_stmt + 1 

8 fo) 8 & ELSE 

. § 8 4 current_line = .current_line + 

3 £3? 881 : -current_incr; 
; 755 08 : 4 current_mark = Line_open; 

; £ sett: 4 current.pc = .current_pc + 

; 5 4 -dpc_entry tpent une vere 
; 758 0. & Spe entry = dpc_entry Cadd_three_bytesJ; 

; 759 0. 4 RETORN TRUE; 

; 760 0 END; 

3; 761 0. 

; 76 90 

; 7 891 ! Read the next four bytes as an unsigned longword 

> 764 O36 : regresens sng a delta-PC value. Update the next_pc 
; £03 Ser and update the dpc_entry address. 

3 re 0895 Cdst$k_delta_pc_li: 

; 768 pee 4 BEGIN 

; 769 0897 4 IF .current_stmt_mode 

; 770 D898 4 THEN 

, wr D899 4 current stmt = .current_stmt + 1 

; 7 ' 4 current_line = .current_line + 

3: 774 ‘ 4 ecurrent_incr; 
3; 775 4 

3; & current_mark = Line_open; 

3 67 4 current_pc = .current_pc + 

3 zr & -dpc_entry inext uns _tongd; 
. £ & dpc entry = dpc_entry Cadd_five_BytesJ; 

3; 780 & RETORN TRUE; 

; «(781 END; 

if 

; ’ sncregse the current Line number by the value 

; i 5 : contained in the next unsigned byte. 

3; 2 fdst$k_incr Linum): 

3 rr & BEGIN 

3; 4 current_line = .current Line + -Get entry fnext_uns_byted; 
3 4 if -curfent_stmt_mode TREN curre sbynt = 1; 
3; «791 4 pc_entry = dpc_entry Cadd_two_bytésJ; 


: 
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! Increase the current Line number by the value 
H contained in the next unsigned word. 


Cdstsk_incr Linum_wi: 
BEGIN 


IF .current_stmt_mode THEN current_stmt = 1; 
current_line = -Curreng., | ine + ~ entry Cnext_uns_word); 
gpc entry = dpc_entry Cadd_three_bytesJ; 


! Increase the current Line number by the value 
: contained in the next unsigned longword. 


Cdst$k_incr_linum_L): 
BEGIN 


IF .current_stmt_mode THEN current_stmt = 1; 
current_line = petty ey + .dpc_entry Cnext_uns_long); 
dpc entry = dpc_entry Cadd_five_bytes); 


! Change the Line increment from its present value to 
! the value contained in the next unsigned byte. 


4 

Cdst$k_set_Linum_incr]: 
BEGIN 
IF .current_stmt_mode THEN current_stmt = 1; 
current_incr = Upc entry Cnext uns _byted; 
dpc entry = dpc_entry Cadd_two_Bytes); 


! Change the Line increment from its present value to 
: the value contained in the next word. 


Cdst$k_set_Linum_incr_w): 
BEGIN 
IF .current_stmt_mode THEN current_stmt = 1; 
current_incr = dpe entry Cnext_uns_word]; 
dpc entry = dpc_entry Cadd_threé_bytes); 


: Revert to a line increment of value 1. 
CdstSk_reset_lLinum_incr): 
BEGIR 
If sCUrrent stat node THEN current_stmt = 1; 
s . 


current_incr ; 
dpc entry = dpc_entry Cadd_one_byte); 


Cdst$k_beg_stmt_mode): 


Bliss-32 V4.0-7 


xe11 42 p 3 
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vOs~000 Heciet94e GBSHE:GE YM 


BEGIN 
oo -current_mark NEQ Line_open 
SIGNAL (dbg$_invdstrec); 


current_stmt = 1; 
Sores “stmt_mode = 
gee. wentry = dpc_ setryieda one_byted; 


Cdst$k_end_stmt_mode): 
BEGIN 
current_stmt = 1; 
current_stmt mode = FALS 
dpc. entry = dpc paki. 4 one_byteJ; 


Cdst$k_set_linum_b): 
BEGIN 


current_line = .dpc_entry(next_uns zhyted: 
dpc. entry = dpc_entryLadd_two_bytes 


Cdst$k =*et at inun): 
current. line = .dpc_entryCnext_uns_word); 
gpe wentry = dpc_entryladd_three_bytes); 


SS3S333<% SSSOSOOOS 
PREPARE EEE EE PME BFP MMAAL RW BRUM BP UMAR EP PAMPER PEPE 


Cdst$k_set_linum_l]: 
BEGIN 


current_line = .dpc_entry(next_uns_ Leng) 
ope. entry = dpc_entryLadd_five_bytes 


Cdst$k =Pot .statnun): 
current_stmt = .dpc_entry(next_uns_word); 
dpc. entry = dpc_entryladd_three_byfes); 


be a a 


par Sar Sor Ser Per Pers 
NAN E WN 20 OONOUSWIN OO 


Cdst$k_set cds 
it -current_mark NEQ Line_closed 
SIGNAL (dbg$_invdstrec); 
current_pc = ostort, pe : 
dpe centr ryC(next_uns_byte); 
gpe entry = dpc_entryLadd_two_bytes]; 


Cdst$k_set caw): 
if -current_mark NEQ Line_closed 
SIGNAL (dbg$_invdstrec); 
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SEEEECE 
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current pc = ootert. pe + 
dpe “en try(next_uns rhe 
ohs entry = dpc_ en ryladd_three_bytés 
Cdst$k_set pc aid: 
BEGIN 
i -current_mark NEQ Line closed 
SIGNAL (dbg$_ gered 


current_pc = “stort .p 
dpe nent cryfnent uns 3 hone: 
ope. entry = dpc_ entry add_five_Bbytes 


; Set the current PC value to an absolute address. 
CoSTSK_SET_ABS_PC): 
IF .CURRENT_MARK NEQ LINE_CLOSED 
SIGNAL (DBG$_INVDSTREC); 


CURRENT PC = .DPC_ENTRYCNEXT UNS _L ONG; 
ONSET -ENTRY = DPC_ERTRYCADD_ FIVE. BYTE ; 


Cdst$k_ toraie 
BEGIN 
current_pc = — upc + 
c.gntryCnent_ uns_byte]; 
current Fay Line. Close sec ies 
ntry = dpc_entryLla wo_bytes 
Retomn Thue: 4 v 


Cdst$k Cy 
current_pc = .current_pc ¢ 
pc cintryCnext. uns_word); 
current _mark = Line ¢ 


ent r E A, centr ross; three _bytes); 
Retomn ° 7 


Cdst$k_tera_l): 
BEGIN 


current_pc = .current_pc 
c antryCnext_ uns_long); 
current mark = tine 


dpe on Thue: = dpc Line .epose0 Hive _bytes); 


(vr oy oy oy ot ot ww UP or oo oo a ee oY oy oy or oo or lt 
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~o 
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This is a standard delta_PC command if the value is 
Or than or equal to zero. Otherwise it is an error. 


SSE. 


' 
i 
5 if toners set next.pc value, update the dpc entry, 
+e } and return with success. 
370 EOUTRANGE): 
97 IF ‘0 c.entry Ccurrent_byte 
378 “ . H Ht Re delta_pc_low 
4) ¢ OR .dpc_entryCcurrent_ a... GTR 
75 dst$k_delta_pc_high 
376 THEN 
97 5 SIGNAL (dbg$_invdstrec); 
Ht 


IF .current_stmt_mode 
THEN 


ELSE current_stmt = .current_stmt + 1 
current_line = .current_line + 
“,current_incr; 


current_pc = aurcom pc - 

centry Ceurrent_byteJ; 
current_mark = Line_o Open: 
REfORN Thu = dpe wentry add _one_byte); 


TES; 
END; 


RETURN 0; 
END; 
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001¢ 00000 PROC_PC_cMD: 
~“,WORD Save RZ-R3,R4 ; 0806 
Sui ROVAB LIBSSIGNAL, RG : 
MOVAB DPC_ENTRY, "RS ; 
ROVZGL DST ENTRY. RO ; 0850. 
ADDL2 DST_ENTRY, R ; 
CHPL ie ENTRY, R : 0849 
BLEG = 38 ; 
i INCL  PCTBL_COUN eth 
38 AS i cnel ie COUNT, NUM_PC_TBLS ; 0854 
OC : 
3C OA i ADDL2 #4. CURRENT. TABLE : 
FC OA i ROVE, — aCORRENT TABLE. DST. ENTRY ; 0896 
63 FC OA DC ADDLS #2, DST ENTRY, ‘DPC_ENTRY : 
3 0 MOVL a ENTRY, R ; 
14 DC CASEB (ROT, #1, #2 
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voe~000 Ve-Sep-1986 12:16:81 DASKSVNSRASTER:CDEBUG. SAcIDBGDPC.B3z51°" (BS 


- WORD 


we 
= 
bad 


Al 8F 55 3 $-4$,- ; 
169 OFe oo Ops 47 tf 4$,- : 
170 F F -4$. : 
138 189 1A 1 7 $-4$,- : 
: : : Bake ri: : 
$-4$,- : 
$-4$,- 3 
$-4$,- 3 
$-4$.- : 
ete ; 
33-03" ; 
1$-4$,- : 
sant So : 
47$-4$.- : 
13$-4$,- 3 
9$-4$,- 3 
1$-4$,- 3 
4$-4$,- : 
3$-4$ : 
2 95 TSTB  —s-_- (R2) + 1102 
15 000 LEQ 0Ss«5$ : 
0002832A 8F DD PUSHL #16465 + 1105 
4 1 Fe CALLS #1, LIBSSIGNAL : 
05 18 AS CE LBC CURRENT_STMT_MODE, 6$ + 1107 
0c A 6 INCL CURRENT STAT + 1109 
08 a3 10 A ¢ ADDL2 CURRENT_INCR, CURRENT_LINE : 1112 
50 0 cVTBL aDPC_ENTRY, R : 111 
14 «A3 C SUBL2 RO, CURRENT_PC : 
1c AS 1 0 MOVL #1, CURRENT—MARK ; 1116 
5 99 Ince BPE ENTRY ae tit 
05 18 AS E9 BLBC  CURRENT_STMT_MODE, 9$ : 0876 
0c A b6 INCL RRENT-STMT : 0878 
08 A 10 A C0 ADDL2 CURRENT INCR, CURRENT_LINE F 0881 
1c A 01 p MOVL #1, CURRENT MARK : 0883 
5 01 A MOVZWL 1(R2), R : 0885 
4 =«A c ADDL2 RO, CURRENT PC : 
6 6 ADDL2 #3. DPC_ENTRY : 0 
015F BRW 55§ : 
05 18 AS E BLBC § CURRENT_STMT_MODE, 14$ : 9 97 
0c A p INcL RENT-STMT : 0899 
08 A 10 a3 C¢ ADDL2 CURRENT_INCR, CURRENT_LINE : 
ic A 01 »D MOVL #1, CURRENT MARK : 
4 =A 01 ot ADDL2 (R2), CURRENT_PC : 090 
5 01 Ad 9A MOVZBL 1(R2), RO : 0917 
08 A 50 ¢ ADDL2 RO, CURRENT_LINE ; 
7 18 #AS E BLBC CURRENT STMT MODE, 32$ : 0918 
oc A 7 p ROVL #1, CURRENT STMT Tes 
04 18 AS £9 BLBC CURRENT STMT_MODE, 18$ ; 338 
oc a3 01 0 MOVL #1, CURRENT_STMT ; 


14 


14 


5 01 
A 
04 18 
A 
A 01 
04 18 
A 
A 01 
04 18 
A 
A 01 
04 18 
A 
A 
01 1c 
0002832A 
64 
A 
A 
A3 
18 
A3 01 
A3 01 
A3 01 
A3 01 
02 1C 
0002832A 


Ge: 


6 

02 1¢ 
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1(R2), RO 
CURRENT _LINE 


CURRENT STMT_MODE, 20$ 
#1, CURRENT STMT 
R2), CURRENT_LINE 
CURRENT STMT_MODE, 22$ 
#1, CURRENT STMT 
1482), CURRENT_INCR 
CURRENT_STMT_MODE, 24$ 
#1, CURRENT STMT 
(2), CURRENT_INCR 
CURRENT STMT_MODE, 26$ 
#1, CURRENT_STMT 
#1. CURRENT-INCR 
RRENT_MARK, #1 
#1646 
#1, L1B$S! 
#1. CURRENT STMT 
#1. CURRENT-STMT_MODE 
#1, CURRENT_STMT 
CURRENT_STMT_MODE 
PC_ENTRY 
i (R2) » CURRENT_LINE 
i (R2) » CURRENT_LINE 
14R2). CURRENT_LINE 
1(R2), CURRENT_STMT 
CURRENT MARK. #2 
#164650 
#1, LIBSSIGNAL 
pt ENTRY, RO 


(RO), RI 
@START_PCCR1), CURRENT_PC 
#2, DPC_ENTRY 


RRENT_MARK, #2 
#164650 
#1, LIBSSIGNAL 
pt ENTRY, RO 


(R 
@START_PCCR1), CURRENT_PC 
#3, DPC_ENTRY 


CURRENT_MARK, #2 
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9 13 0018 BEQL 46$ : 
0002832A BF DD 1B PUSH $954650 + 1044 
4 FB 0018B CALLS #1, LIBSSIGNAL ; 
: DO OO1BE 46$: MOVL b € ENTRY, RO + 1047 
16 «AB 04 A 01 A f iC ADDLS (R0 » START_PC, CURRENT_PC pow 
02 “" &« D4 cA 47$: CPL page: #2 : 1968 
0002832A 8F DD 150 PUSHL #164650 + 1058 
64 | F 106 CALLS #1, LIBSSIGNAL : 
D0 00109 48$: § MOVL ppt NTRY, RO : 1060 
4 =#A 01 Ap D 1p MOVL {RO} CURRENT_PC : 
6 9 1E1 498:  ADDL2 #5, DPC_ENTRY + 1061 
FE29 31 OO1E4 208: BRW 1$ ; 0866 
5 01 A2 9A O01E7 51S: MOVZBL 1(R2), RO : 1 
14 =A 50 CO OO1EB ADDL2 RO, CURRENT_PC 3 
1c OA DO OO1EF MOVL #2, CURRENT-MARK + 1068 
6 1F3 ADDL2 #2. DPC_ENTRY : 1069 
Ite BRB 55§ : 1070 
5 01 A ¢ 1F8 52$: MOVZWL 1(R2), RO : 1076 
14 «OA 50 CO OO1F ADDL2 RO, CURRENT_PC : 
1c (OA 02 00 MOVL #2. CURRENT~MARK + 1077 
FEA? 31 BRW 11$ : 1078 
% « 01 A2 CO 7 53$: ADDL2 1(R2), CURRENT PC 3 1086 
ic OA 02 OD MOVL age CURRENT MARK : 108 
6 C 1 548: ADDL2 #5, DPC_ENTRY + 1088 
50 1 60 0 5$: MOVL #1, RO + 1089 
50 ps 00 i3 56$ CLRL = RO > 1125 
4 00219 RET : 


: Routine Size: 538 bytes, Routine Base: DBGSCODE + 02A9 
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ROUTINE FIND EOL (LINE_END) = 


i Functional description: 
This cout log orqcegees PC correlation commands until 


SEEReSS 


an end of | found. 
Inputs: 

Line_end - a copy-back pointer for the value of the end-of-Line 
Implicit inputs: 

None 


Implicit outputs: 
the contents of the Line pointer, the increment pointer, the 
statement pointer, the next_pc pointer, dpc_entry, and possible 
dst_entry are updated to new values. 


Routine value: 
TRUE if all goes well, otherwise FALSE. 


Side effects: 
More of the correlation records for this routine are read. 


ad 8 ed tt td 


NOUS WN MOO ONOULS WO 


Te ee ttt) 
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BEGIN 
REPEAT 
BEGIN 


See whether the current record is exhausted. If 
so, get a new record. If none are available, 
r 


PUPP 


1 eturn FALSE. Otherwise, set dpc_entry to point to 
the address of the third byte of the correlation record. 
If dpc_entryCcurrent_byte) GTR (.dst_entryldst$b_length] + 
5 . . Gee enteytdctsb tengtnds r . 


THEN 


OOOO oooooooooooooocoo 


BEGIN 

PCTBL_COUNT = .PCTBL_COUNT + 1; 

IF .PCTBL_COUNT GTR <NUM_PC_TBLS THEN RETURN FALSE; 
current_table = .current_table + 4; 

dst_entry = ..current 


-f3 le; 
dpc entry = dst_entry Ldst$b_vflags); 


! Now process each command, either PC correlation or 
: delta-PC one at a time. 


CASE .dpc entry Ccurrent_byte) FROM 1 TO dst$k_pccor_high OF 
dst$k_delta pc_wi: 
BEGIN” 


-line_end = (.current_pc - 1) + 
-dpc_entry Cnext_uns_word); 
RETURN TRUE; 


ec ee mee me me me me me me me me me me ee em ee ee ee a a ed ed ed ed od od ed wd = dd ed dd 
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aye Pn eS, LL LLL LL LL ee ee en ne ee en ee ee ees 


oo 
REV OOBNONR = 


oBGORE ifosen-t96s 90:zz:gt yA 
Cdst$k an qre- LJ: 


ating end = (. sey pe - 2 a eal 
-dpc_entry [Ene ns_ long]; 
peyuee TRUE; ¢ a 
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Cdst$k_incr Linum): 
dpc_entry = dpc_entry Cadd_two_bytesJ; 


Cdst$k_incr_linum_w): 
dpc_entry = dpc_entry Cadd_three_bytes); 


Cdst$k_incr_lLinum_l): 
dpc_entry = dpc entry Cadd_five_bytes]; 


Cdst$k_set_ tinun. incr): 
dpc_entry = “toc entry Cadd_two_bytes); 


Cdst$k_set_linum_incr_wi: 
dpc_entry = dsc entry Cadd_three_bytes); 


Cdst$k_reset_linum_incr): 
dpc_entry = dpe. entry Cadd_one_byte); 


Cdst$k -¢9-5 seat mode): 
dpc_entfy = dpc_entryLadd_one_byte); 


Cdst$k y itp stmt_mode): 
dpc_entfy = dpc_entryLadd_one_byted; 


Cdst$k_set_linum_b): 
dpc_entry = dpc_entryLadd_two_bytes); 


Cdst$k_set_linum): 
dpc_entry = dpc_entryladd_three_bytes); 


Cdst$k_set_linum_L): 
dpt_entry = dpc_entryLadd_five_bytes); 


Cdst$k_set_stmtnum): 
dpt_entry = dpc_entryLadd_three_bytes); 
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; Cdst$k ~Set ped: 

1 BEGIN end = (.start_pc - 

1 .dpc ehh. Ry uns_byte); 
1 RETURN TRUE; 

; END; 

: Cdst$k_ set pc _W): 

110 BEGIN” end = (.start_pc - 1) + 

111 -dpc_entry(next_uns_word); 
112 RETURN TRUE; 


N 
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: 


END; 
Cdst$k_set pe td: 


BEG N 

line end = aaa : v + : a 
-dpc_entry(next_uns_long); 

RETURN TRUE; fost _— 


COSTSK_SET ABS_PCI: 
eLINE_END = .DPC_ENTRYCNEXT_UNS_LONG] = 1; 
RETURR TRUE; Hi seat ile mane 
END; 
Cdst$k_term): 
BEGIN 


elineend = (.current_pc -1) + 
-dpc_entryinext_uns_byteJ; 
Sa TRUE; 


PUPPIES BB PPE 


ZS AS Catv > Oe at Ata ot Dee Ae ee 


bdetth, tore wi: 


-line_end = (.current_pc -_1) + 
-dpc_entry(Cnext_uns_word); 
Sage TRUE; 


Cdst$k_term_L]: 
BEGIN 


eline_end = (.current_pc -_1) + 
-dpc_entry(next_uns_longJ; 
pee TRUE; 


COUTRANGE): . 


IF .dpc_entry Ccurrent_byte] LSS 
dst$k_delta_pc_low 

OR .dpc_entryCcurrent_byte) GTR 

THEN dst$k_delta_pc_high 


SIGNAL (dbg$_invdstrec); 


eline_end = (.current_pc = 1) - 
-dpc_entry Ccurrent_byte); 
oe tuan TRUE; 


Jase 


MEWN— 


TES; 
END; 
RETURN 0; 
END; 


Be a BB ee et Be et kB a a a dd a ad a od st tn a tt 8 ot a = 9 = a as 2 
ee ee ed td nd et od nd 2d a 8 4 2 8 a 8 


yee) AR Ay tet a ARE AS Et ne ery ee epee eA tye Ngee ar ere ey od 


a a ee ee ee a a ee ee ee ee ee ee a a ee a ed ed ed ed 
ARIPO BB PEEP EEF PAA & FEMS F&F PML BF PAWNS BF PAILS. & BP 


1126 
1162 
1161 


P 
Sac IoBGDPC.B3204"" (Fs 


| 
| 
~ 
wT 
™m -« 
‘wo 
op 
“mM = 
ww nn a> 
>a a= -—-ae 
— @ ze 
MN oa waz 
ma ‘ ou 
ou vu - 6 
ne a Mv 
an t woa 
= = —_ & 
st 7] 
aw So ze eu . 
= MZoo — I>wO 
-> <c cc . 2. 
—A . bat —<e— 
iB 4 Ms ss 22 2e2 
xWn e>a>> DD w bu> ss 
oo ece-aa OO cer xe .. 4 
>a Ne Zee YY aazerein st 
eS2w22 $e "wwe 2. A SH 
w Quw J.) Yeaeow Mearns 
@ = t+: @m@ « nwrw i wt 
2VeOHOrV FE RM 2D wT! 1A 1A 
o- B80. OMA HOV T VON THK OH— 
nan NABOOMAACUVUSZBRZOW~OO Or 
wo 
CaN ed —_ 
ee oe Qa Nu /!m aa 
orm > }~ a oo es ee ee TV 4 
on O>>00wvaw3a>a>uKo 
Booas IZE  (2@aceoodcs3 
wv *° *EFECVO-VOOadEaew > 
ao00 —_ 
on oS 
mr Lvs) 
se t 
aa a 
~w oe @ =z ee ee oe 
Mm _ eas aa fA 
ee ive - “A mm wT 
NO O-—T OO WOM UU OMOowo 
-— _ -_ 
s ooocenrenen— TTMNO 
Ss SOooooooooooooococoooSd 
S&S SOCOCoOoooooooooooooooo 
So SOOOQooooooooooooooooo 
YY WOK NORKM—-OOCr- Cu 
S AOVA—GOoK-—MvOAVAa®d 
So 


v0e~060 


A3 


38 


Fe Fe FS Fe FS FS FSS FS FS FS FS FS FS FS FS FS FS FS OS FS FS OS OS OS HS FS FS OS FS FS OS OS 5S OS OS FS OS OSES OS OS 5S 5S ES OE OE FE SES 


1280 
1283 
1286 
8 
1 
1217 
1223 


o 
a 
. 
aow o 
2, [4 > > 
‘ = « 
oOo = . _- - 
—>Z Vv zz 
Vigw oa - w ww 
Akagi «ze 4 ‘ 
oo2za —- &—-& YY WY 
New> z= & a a 
ow 2 -~w w & & 
~ TF UY wa iy 
Nw CO GC MEZHYRM HP ww 
ZA—— ABSOOw DOBSON 
YNBBBEVK ONO Bes 
_ 
aM wr ww Nu UN 
@gortw@as wt J a «ds 
nists Ses eeseeeee 
"wJIOI<> eS = S9S95 
—@OAFVVKMOE<O—-@O< Oc 


WN ODOM VO—O-OoO-Oo- 
Ae Be QVM Ber VE VE 


NAL K—MOEAMOM ANON 
wWODO OMY «LT OOOSCSOO 


-wT 
oe 


00 


0002832A 


oo 
nn 


A 
63 
63 


000000006 9 
14 


50 


2 
GDP 16-5 =1984 00:22: VAX-11 Bliss-32 V4.0-742 P 3 
MBs 060 1 =300n 138% 90:98:89 DISKSVMSMASTER: (DEBUG. SRCIDBGDPC.B32: 1" GF 
63 03 i 1: ADDL2 #3. DPC_ENTRY ; 1226 
50 01 Ae A i :  MOVZBL 1(R2), RO + 1231 
0 i A BRB 15$ : 
50 1 Me A2 14$ MOVZWL 1(R2), RO : 1238 
4 A ; Mb 15$ ADDL2 TART “PC, RO Fesiee 
50 04 A3 01 As 9 y 16$ ADDLS (R2), START_PC, RO 3 45 
04 Bc 01 A2 o1 ; 17$ SUBL3 a 1(R2), @LINE_END + 1251 
1 BA BRB 1§ + 125 
50 01 A 9A : 18$ MOV ZBL (R2), RO ; § 
50 16 A3 01 A g C2 19$:  ADDL3  1(R2), CURRENT PC, RO : 4 $3 
06 BC - ; 9o¢ gos: MOVAB -1(ROS, @LINE_END + 1271 
50 01 p O0CD 21$:  MOVL #1, RO + 1273 
4 00000 RET : 
50 04 000D1 228 CLRL = RO : 
04 00003 RET : 


1295 
; Routine Size: 212 bytes, Routine Base: DBGSCODE + 04C3 


ibesto-t944 19:72:87 4 DTScdumenaSfenscbedue.scaecopc.e3201°" «Bs 


: 


3 1170 } 3 } ROUTINE GIVE _LINE_INFO(LINE_NUM, STMT_NUM): NOVALUE = 

: 1178 1 98 1 i FUNCTI 

3 197 1 1! This routine gives prev., current, next Line information to the user 
3 1176 4 ! } when the desired line is not found. 

; 1178 i ; 1 | INPUT 

; 117 1 . 3 REPORT_PREV_LINE = Previous Line 

3 11g 1 1! vey PREV_STMT = Previous Daan 

7 11 1305 1! NE _NOM - Current 

3 11 1 1! STMT - Curren statenent 

3; 1181 1 4 e REPORT _NEXT_LI we = Next Lin 

g 1 ¢ ! 4 ! } REPORT_NEXT_STMT = Next stoteuent 

:11 1310 1 | ouTPUTS 

; i 5 : \} : : Informational message is displayed. No return value. 

; 1189 1 ig 1 

3: 1188 1314 BEGIN 

3 24 1315 

3 11 1 1$ LOCAL 

3; 1191 131 BUFFER: vecronter BYTE) ' Output buffer 

3 1196 : 18 BUF _DESC: VECTORC2, LONGI; i Output buf fer string descriptor 
2 1194 1320 

3 1195 1321 IF .STMT_NUM EQL 0 THEN STMT_NUM = 

; 1196 1 3 IF .REPORT_PREV_STMT EQL 9 TREN REPORT _PREV_STMT = 1; 

H 133 : Z IF »REPORT_; NEXT _ “STMT EQL THEN REPORT— NEXT mh MT = 1; 

; 1199 1325 BUF _DESCEO > 

; 1200 i 6 BUF-DESCC1] = ty jirerct): 

3 1208 1 : IF (.REPORT_PREV_LINE EQL 0) A 

3; 120 1 (.LINE_NOM EQC .REPORT NeXt ND INE? AND 

3 1204 j (. REPORT PREV STMT EQL~ 

: ; 44 ’ 1 — _NOM EQC .REPORT NEXT_STMT) 

: 1207 1 § BEGIN 

3 1 oS 1334 DBGSF ORMAT_F AO. OUT(BUF_DESC, UPLIT BYTE 

3:1 1335 CEASCIe no tne, fore pation available')); 

3; 1210 1 BUrrERt = 79 - 

3 1211 1 SIGNAL (DBGS _LINEINEO. i SEO} 

: 1548 : ewe 

: 1214 1 : 

3 1215 1341 DBGSFORMAT_FAO GUT (oUF DESC, UPLIT BYTEC(ZASCIC ‘no Line !UL"), .LINE_NUM); 
: 1519 1368 term ote 

; : 18 \ : DBGSFORMAT_FAO_OUT(BUF_DESC, UPLIT BYTE(ZASCIC °.!UL"), .STMT_NUM); 
: ' . } § THEN (.REPORT_PREV_LINE EQL 0 AND .REPORT_PREV_STMT EQL 1) 

31 i EGIN 

. FORMAT Aa T(BUF DESC, UPLIT BYTE 

: bat (ZASC eur previous “a is !UL"), .REPORT_PREV_LINE); 
> 1226 1352 IF .REPORT_PREV_STMT GTR 1 


t. 


MEW 


Wr 


uw 


we 


Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se ee Sees 
Dt ad Sd a Dd = td Sd ts td Lt 
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ANNO 


No 


1festo- 1944 99:98:89 9 SiScbimGhaStenscbcaucshcaD8pPc 


THEN 
DBGSFORMAT_FAO_OUT(BUF _DESC, UPLIT BYTE(ZASCIC *.!UL"), .REPORT_PREV_STMT); 


IF NOT (.REPORT NEXT LINE EQL 
2N XTLSTMT 
THEN 


DEGEFORRAT Aa T(BUF DESC, UPLIT BYTE 
‘ie’, next Line 4 Tus » «REPORT_NEXT_LINE); 


IF -REPORT_NEXT_STMT GTR 1 


EN sap Peer ORAAT FAD_OUT (BUF DESC, UPLIT BYTE(ZASCIC ‘.!UL"), .REPORT_NEXT_STMT); 


QUEFERTO) = 79 = .BUF =PESCCO); 
SIGNAL (DBGS_LINEINFO,~1, BUFFER); 
RETURN N 0; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


$3 of $8 6C 20 6F $F 10 44 P.AAA: .ASCII <29>\no Line information available\ 
3 6 8 6— 6F 69 74 61 F 
65 6€ 69 6C 9 F —E QB QOO1E P.AAB ASCII <11>\no ne 'UL\ 
69 76 65 if 5 16 O0er PIAAD ASCH 330: fous Line is !UL\ 
: 5 as ous line is 

ge 8 $3 26 98 8 55 68 . 

ag 5 1 E 04 P.AAE: .ASCII <4>\.!UL\ 
20 74 78 6 g ‘ 26 AAF: II] <18>\, a Line is !UL\ 

1 2€ 04 


UMEOun 


P.AAG: .ASCII <4>\.!UL\ 


«PSECT DBGSCODE.NOWRT, SHR, PIC,0 


001C 00000 GIVE_LINE aor 
“~~ .QORD R2,R3,R 


6 00 9% MOVAB sae FORMAT “Fao _OUT, R4 
' i MOVAB P.AAA 
"EF t ROVAB REPORT PREV_STMT, R2 
AB AE i MOVAB . -88(SPJ, SP 
08 Ac p t TSTL STAT _NUA 
1 D y BOVE i STMT_NUM 
} iste fg _PREV_STMT 
D MOVL REPORT_PREV_STMT 
F8 Ae p TSTL PORT_NEXT_STMT 
BNEQ 
1 ML REPORT_NEXT_STMT 
4f 6 BF OSA MOVZBL ; $. BUF _DESC 
09 AE 9E VAB_ BUFFER+1> BUF_DESC+4 


Bete Ge Ge te Ge Ge te Bee 


B32” 
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Ifoseo 194 99:72:87 — DESKSVNGnASTERsCDEGuG.scIDBcDPC.832¢4°" (aS 


FC A D5 904 TSTL REPORT _PREV_LINE : 1328 
10 000 BNEG = 4 ; 
FS A2 04 AC 9} 000 CHPL = LINE.NUM, REPORT_NEXT_LINE ; 1329 
01 6¢ 0 90049 CMBL REPORT PREV_STAT, #1 3 1330 
FB A2 08 th p d00 CPL STMT _NUM, REPORT_NEXT_STMT ; 1331 
D 000 PUSHL R : 
06 A BF 00 PUSHAB F pest : og 
64 08 £8 000A CALLS #2, DBGSFORMAT_FAO_OUT : 
11 00050 RB 9 i 1336 
4 AC DD O005F 4s PUSHL_ LINE_NUM :1 
3 A oF 000 PUSHAB P.AAB : 
08 AE 9F 00C PUSHAB BUF _DESC : 
64 03 FB 000 CALLS #3,~DBGSFORMAT_FAO_OUT : 
1 08 AC 1 000 CMPL TAT_NUM, #1 $ 1342 
OC 15 O006F BLEQ : 
8 AC 0d 00071 PUSHL_ STMT_NUM > 1344 
‘ & oF 00074 PUSHAB P.AAC ; 
8 AE 9F 00077 PUSHAB BUF _DESC : 
$4 03 FB OOO7A CALLS #3, DBGSFORMAT FAO_OUT : 
0 FC Ag 0 0007 5$: move OR PORT_PREV_LINE, RO 3 1346 
01 6 D 400 3 CMPL REPORT _PREV_STMT, #1 : 
13 000 BEQL =? : 
50 DD 00088 6$ PUSHL i 1350 
2 AS 9F Q008A PUSHAB P.AAD > 1349 
8 AE 9F 000 PUS BUF _DESt ; 
64 FB 00 CALLS #3, DBGSFORMAT FAO_OUT : 
1 p} 0008 CAB REPORT_PREV_STAT, #1 ; 1352 
62 0D 50098 PUSHL_ REPORT_PREV_STMT : 1354 
46 AS 9F QOO9A PUSHAB P.AAE ; 
08 AE 9F 0009D PUSHAB BUF _DESC ; 
64 03 FB 00C CALLS #3, DBGSFORMAT FAO_OUT ; 
04 AC F4 A b DOOAS 78: CML REPORT_NEXT_LINE, CINE_NUM > 1357 
08 ac ra A of OM CRPL REPORT _NEXT_STMT, STMT _NUM ; 1358 
F4 Ag DD 000B1 8$:  PUSHL REPORT_NEXT_LINE : 1362 
4B AS OF 0008 PUSHAB P.AAF ; 1361 
“ o§ Fb OOOBA CALLS” #4, “DEGSFORMAT_FAO_OUT : 
ot F8 A of poogt cRPL REPORT_NEXT_STAT, i 3 1364 
£8 he d 000¢ PUSHL REPORT_NEXT_STMT 3 1366 
3 AS 9F O00CE PUSHAB P.AAG ; 
AE OF O00CS PUSHAB BUF DESC ; 
6s 03 fe DO0CC CALLS #5," DBGSFORMAT_FA, QUT ; 
sf BF E 83 QOOCE 98: SUBB BUF DESC, #79, BUFFER : 1369 
0 Hi 9000 PUSHAB FFER ; 1370 
00028703 Br DD OOODA PUSHL #165635 ; 
000000006 00 3 fe DO0E CALLS #3, LIBSSIGNAL 
DOOE RE 3 1372 


voe~060 1S seo-1944 93:78:87 baScbimGhaStenscbcauc skcaoscppc.es204%° «Bs 
; Routine Size: 232 bytes, Routine Base: DBGSCODE + 0597 


Bo TREY 
31 rt 1 ue ) ELUDON 
.EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: DBGSOWN ft WRT, RD .NOEXE.NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3 DBGSCODE 16 NOVEE. ;NOWRT, RD. EXE, SHR. LCL. REL. CON, PIC.ALIGN(O) 
3 DBGSPLIT NOVEC,NOWRT, RD, EXE, SHR. LCL. REL. CON, PIC-ALIGN(O) 
: Library Statistics 
; ecosssse Synbol§ eooneece Pages Processing 
; File Total Loaded Percent Mapped Time 
; $ SS$DUA28: CSYSLIBILIB.L32;1 18619 100 0:01.8 
; 33bun : EDEBUG. OBJ STRUtDEF F 3432: 31 52 o Q ; 09:00. 
; 5$0u, 154 5 97 :01.8 
; -} 55 ‘ EDEBUG: “OB De TRECRDS. {32;1 
+ _$2558DUA28:(DEBUG.0B) JDBGMSG.L32: the 12 8 3} 00:00-3 
F Bitty $ DEBUG. “OBI DBCCEN: +355) 758 0 £3 0:00. 


: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1IS$:DBGDPC/0BJ=0BJ$:DBGDPC MSRC$:DBGDPC/UPDATE=(ENHS:DBGDPC) 
Size: 1663 as + 187 data bytes 
me: : s. 


; Lexemes/CPU-Min: 1 


221 pages 


; _ : : 

; Lines/CPU Min: 308 
: Memory Used: 

5 eel see Complete 


AH-BT13A-SE DIGI 
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007 


"NT CORPORATION 
D PROPRIETARY 
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